com!online 2005 May/com_0505_1.iso/opensource/top10/amc_install.exe/{app}/Scripts/Update Fields (FR-US).ifs

Text File | 2004-11-18 | 26.6 KB | 834 lines

// GETINFO SCRIPTING
// Mise α jour massive de champs - by ScorEpioN

(***************************************************
 *  Script de mise α jour des champs               *
 *                                                 *
 *  Script by ScorEpioN                            *
 *                                                 *
 *  Version : 6 - Update du 10/11/2004             *
 *                                                 *
 *  A utiliser avec Ant Movie Catalog 3.4.0        *
 *  www.ant.be.tf/moviecatalog ╖╖╖ www.buypin.com  *
 *                                                 *
 *  The source code of the script can be used in   *
 *  another program only if full credits to        *
 *  script author and a link to Ant Movie Catalog  *
 *  website are given in the About box or in       *
 *  the documentation of the program               *
 ***************************************************)

program UpdateAllField;

var
  Update, NewField : String;

//------------------------------------------------------------------------------
// FONCTION METS LE CHAMPS COMMENTAIRE A LA SUITE DU CHAMPS DESCRIPTION
//------------------------------------------------------------------------------
procedure moveComments();
begin
   SetField(fieldDescription,GetField(fieldDescription)+GetField(fieldComments));
   SetField(fieldComments,'');
end;

//------------------------------------------------------------------------------
// FONCTION MISE A JOUR DU CHAMPS SOUS-TITRE
//------------------------------------------------------------------------------
procedure UpdateSubtitlesField();
begin
  if (NewField = '') then
  begin
    if Input('Update Subtitles Field by ScorEpioN', 'Entrez la nouvelle langue des sous-titres :', NewField) then
    begin
      NewField := AnsiUpFirstLetter(NewField);
      SetField(fieldSubtitles, NewField);
    end;
  end else
    NewField := AnsiUpFirstLetter(NewField);
    SetField(fieldSubtitles, NewField);
end;

//------------------------------------------------------------------------------
// FONCTION MISE A JOUR DU CHAMPS TYPE DE SUPPORT
//------------------------------------------------------------------------------
procedure UpdateMediaTypeField();
begin
  if (NewField = '') then
  begin
    if Input('Update Media Type Field by ScorEpioN', 'Entrez le nouveau type de support :', NewField) then
    begin
      SetField(fieldMediaType, NewField);
    end;
  end else
    SetField(fieldMediaType, NewField);
end;

//------------------------------------------------------------------------------
// FONCTION MISE A JOUR DU CHAMPS LANGUE
//------------------------------------------------------------------------------
procedure UpdateLanguageField();
begin
  if (NewField = '') then
  begin
    if Input('Update Language Field by ScorEpioN', 'Entrez la nouvelle langue du film :', NewField) then
    begin
      NewField := AnsiUpFirstLetter(NewField);
      SetField(fieldLanguages, NewField);
    end;
  end else
    NewField := AnsiUpFirstLetter(NewField);
    SetField(fieldLanguages, NewField);
end;

//------------------------------------------------------------------------------
// FONCTION MISE A JOUR DU CHAMPS PAYS
//------------------------------------------------------------------------------
procedure UpdateCountryField();
begin
  if (NewField = '') then
  begin
    if Input('Update Country Field by ScorEpioN', 'Entrez le nouveau pays :', NewField) then
    begin
      SetField(fieldCountry, NewField);
    end;
  end else
    SetField(fieldCountry, NewField);
end;

//------------------------------------------------------------------------------
// FONCTION MISE A JOUR DU CHAMPS CATEGORIE
//------------------------------------------------------------------------------
procedure UpdateCategorieField();
begin
  if (NewField = '') then
  begin
    if Input('Update Categorie Field by ScorEpioN', 'Entrez la nouvelle catΘgorie :', NewField) then
    begin
      SetField(fieldCategory, NewField);
    end;
  end else
    SetField(fieldCategory, NewField);
end;

//------------------------------------------------------------------------------
// FONCTION MISE A JOUR DU CHAMPS ORIGINE
//------------------------------------------------------------------------------
procedure UpdateSourceField();
begin
  if (NewField = '') then
  begin
    if Input('Update Source Field by ScorEpioN', 'Entrez l''origine :', NewField) then
    begin
      SetField(fieldSource, NewField);
    end;
  end else
    SetField(fieldSource, NewField);
end;

//------------------------------------------------------------------------------
// FONCTION COPIE TITRE SI VIDE
//------------------------------------------------------------------------------
procedure CopyTitle();
begin
    if GetField(fieldTranslatedTitle) = '' then
    begin
      SetField(fieldTranslatedTitle,GetField(fieldOriginalTitle));
    end else
    if GetField(fieldOriginalTitle) = '' then
    begin
      SetField(fieldOriginalTitle,GetField(fieldTranslatedTitle));
    end;
end;

//------------------------------------------------------------------------------
// FONCTION MISE A JOUR DE LA CASSE DES TITRES ET DES NOMS
//------------------------------------------------------------------------------
procedure UpdateCasse();
var
  valeurChamps : String;
begin
// Titre Original
  valeurChamps := '';
  valeurChamps := GetField(fieldOriginalTitle);
  valeurChamps := AnsiLowerCase(valeurChamps);
  valeurChamps := AnsiUpFirstLetter(valeurChamps);
  valeurChamps := AnsiMixedCase(valeurChamps,' -');
  SetField(fieldOriginalTitle, valeurChamps);
// Titre Traduit
  valeurChamps := '';
  valeurChamps := GetField(fieldTranslatedTitle);
  valeurChamps := AnsiLowerCase(valeurChamps);
  valeurChamps := AnsiUpFirstLetter(valeurChamps);
  valeurChamps := AnsiMixedCase(valeurChamps,' -');
  SetField(fieldTranslatedTitle, valeurChamps);
// Nom du RΘalisateur
  valeurChamps := '';
  valeurChamps := GetField(fieldDirector);
  valeurChamps := AnsiLowerCase(valeurChamps);
  valeurChamps := AnsiUpFirstLetter(valeurChamps);
  valeurChamps := AnsiMixedCase(valeurChamps,' -');
  SetField(fieldDirector, valeurChamps);
//Nom du Producteur
  valeurChamps := '';
  valeurChamps := GetField(fieldProducer);
  valeurChamps := AnsiLowerCase(valeurChamps);
  valeurChamps := AnsiUpFirstLetter(valeurChamps);
  valeurChamps := AnsiMixedCase(valeurChamps,' -');
  SetField(fieldProducer, valeurChamps);
// Nom des Acteurs
  valeurChamps := '';
  valeurChamps := GetField(fieldActors);
  valeurChamps := AnsiLowerCase(valeurChamps);
  valeurChamps := AnsiUpFirstLetter(valeurChamps);
  valeurChamps := AnsiMixedCase(valeurChamps,' -');
  SetField(fieldActors, valeurChamps);
end;

//------------------------------------------------------------------------------
// NETTOIE LE TITRE DU FICHIER POUR AVOIR LE TITRE DE FILM ORIGINAL
//------------------------------------------------------------------------------

procedure cleanTitleO();
var
  i,j, fin : Integer;
  title, temp : String;

begin
  title := GetField(fieldOriginalTitle);
  title := AnsiUpperCase(title);

  if title <> '' then
  begin
// Nettoie les tags fichiers, merci Atmosfear pour les tags
  i:=pos('.DVD',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.DIVX',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.FREN',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.GERM',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.INT',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.LIM',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.PROP',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.REPACK',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.SUBB',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.UNSUB',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.WS',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.XVID',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.AC3',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.UNRAT',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;

   title := StringReplace(title, '.', ' ');
   title := StringReplace(title, ',', ' ');
   title := StringReplace(title, ':', '');
   title := StringReplace(title, '-', '');
   title := StringReplace(title, '  ', ' ');

   i := 0;
// Nettoie les tags de team
   if (pos('(',title) <> 0) then
   begin
     i := pos('(',title);
     temp := copy(title,0,i-1);
     j := pos(')',title);
     fin := Length(title);
     title := temp + copy(title,j+1,fin);
   end;

   if (pos('[',title) <> 0) then
   begin
     i := pos('[',title);
     temp := copy(title,1,i-1);
     j := pos(']',title);
     fin := Length(title);
     title := temp + copy(title,j+1,fin);
   end;

   title := AnsiLowerCase(title);
   title := AnsiUpFirstLetter(title);
   title := AnsiMixedCase(title,' -');
  end;
   SetField(fieldOriginalTitle, title);
end;

//------------------------------------------------------------------------------
// NETTOIE LE TITRE DU FICHIER POUR AVOIR LE TITRE DE FILM TRADUIT
//------------------------------------------------------------------------------

procedure cleanTitleT();
var
  i,j, fin : Integer;
  title, temp : String;

begin
  title := GetField(fieldTranslatedTitle);
  title := AnsiUpperCase(title);

  if title <> '' then
  begin
// Nettoie les tags fichiers, merci Atmosfear pour les tags
  i:=pos('.DVD',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.DIVX',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.FREN',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.GERM',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.INT',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.LIM',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.PROP',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.REPACK',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.SUBB',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.UNSUB',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.WS',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.XVID',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.AC3',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;
  i:=pos('.UNRAT',title);
  if i <> 0 then
  begin
    title := copy(title,1,i-1);
  end;

   title := StringReplace(title, '.', ' ');
   title := StringReplace(title, ',', ' ');
   title := StringReplace(title, ':', '');
   title := StringReplace(title, '-', '');
   title := StringReplace(title, '  ', ' ');

   i := 0;
// Nettoie les tags de team
   if (pos('(',title) <> 0) then
   begin
     i := pos('(',title);
     temp := copy(title,0,i-1);
     j := pos(')',title);
     fin := Length(title);
     title := temp + copy(title,j+1,fin);
   end;

   if (pos('[',title) <> 0) then
   begin
     i := pos('[',title);
     temp := copy(title,1,i-1);
     j := pos(']',title);
     fin := Length(title);
     title := temp + copy(title,j+1,fin);
   end;

   title := AnsiLowerCase(title);
   title := AnsiUpFirstLetter(title);
   title := AnsiMixedCase(title,' -');
  end;
   SetField(fieldTranslatedTitle, title);
end;

//------------------------------------------------------------------------------
// SUPPRIME UN MOT D'UN TITRE DE FILM TRADUIT
//------------------------------------------------------------------------------

procedure cutTitleT();
var
  i,j, fin, finTitle : Integer;
  title, temp, avant, apres : String;
begin
  title := GetField(fieldTranslatedTitle);
  if (NewField = '') then
  begin
    if Input('Cut Title by ScorEpioN', 'Entrez le mot α supprimer des titres :', NewField) then
    begin
      title := ' '+title+' ';
      i:=pos(NewField,title);
      if i <> 0 then
      begin
        fin := length(NewField);
    avant := copy(title,i-1,1);
    apres := copy(title,i+fin,1);
    if (avant = ' ') and (apres = ' ') then
    begin
      finTitle := length(title);
      title := copy(title,1,i-1)+copy(title,i+fin,finTitle-i-fin+1);
      title := StringReplace(title, '  ', ' ');
        end;
      end;
    end;
  end else
  begin
    title := ' '+title+' ';
    i:=pos(NewField,title);
    if i <> 0 then
    begin
      fin := length(NewField);
      avant := copy(title,i-1,1);
      apres := copy(title,i+fin,1);
      if (avant = ' ') and (apres = ' ') then
      begin
    finTitle := length(title);
    title := copy(title,1,i-1)+copy(title,i+fin,finTitle-i-fin+1);
    title := StringReplace(title, '  ', ' ');
      end;
    end;
  end;
  SetField(fieldTranslatedTitle, Trim(title));
end;

//------------------------------------------------------------------------------
// SUPPRIME UN MOT D'UN TITRE DE FILM ORIGINAL
//------------------------------------------------------------------------------

procedure cutTitleO();
var
  i,j, fin, finTitle : Integer;
  title, temp, avant, apres : String;
begin
  title := GetField(fieldOriginalTitle);
  if (NewField = '') then
  begin
    if Input('Cut Title by ScorEpioN', 'Entrez le mot α supprimer des titres :', NewField) then
    begin
      title := ' '+title+' ';
      i:=pos(NewField,title);
      if i <> 0 then
      begin
        fin := length(NewField);
    avant := copy(title,i-1,1);
    apres := copy(title,i+fin,1);
    if (avant = ' ') and (apres = ' ') then
    begin
      finTitle := length(title);
      title := copy(title,1,i-1)+copy(title,i+fin,finTitle-i-fin+1);
      title := StringReplace(title, '  ', ' ');
        end;
      end;
    end;
  end else
  begin
    title := ' '+title+' ';
    i:=pos(NewField,title);
    if i <> 0 then
    begin
      fin := length(NewField);
      avant := copy(title,i-1,1);
      apres := copy(title,i+fin,1);
      if (avant = ' ') and (apres = ' ') then
      begin
    finTitle := length(title);
    title := copy(title,1,i-1)+copy(title,i+fin,finTitle-i-fin+1);
    title := StringReplace(title, '  ', ' ');
      end;
    end;
  end;
  SetField(fieldOriginalTitle, Trim(title));
end;

//------------------------------------------------------------------------------
// VERIFIER LA VERSION DU SCRIPT
//------------------------------------------------------------------------------

procedure verifVersion();
var
   Line, NewVersion, MaVersion, Telecharge : String;
   BeginPos, EndPos : Integer;
begin
  MaVersion := '6';
  Line := GetPage('http://forum.antp.be/phpbb2/viewtopic.php?t=1453');
  BeginPos := pos('TELECHARGER LE SCRIPT UPDATE ALL FIELDS v', Line);
  delete(Line,1, BeginPos+40);
  EndPos := pos('du', Line);
  NewVersion := copy(Line, 1, EndPos - 2);
  PickTreeClear;
  PickTreeAdd('Votre version est la '+MaVersion+', la derniΦre est la '+NewVersion+'.', '');
  PickTreeAdd('Pour tΘlΘcharger la derniΦre version :', '');
  PickTreeAdd('Cliquez ici', 'DL');
  PickTreeAdd('Le script sera tΘlΘcharger dans le mΩme rΘpertoire que votre catalogue', '');
  PickTreeAdd('Cliquez sur annuler pour quitter', '');
  begin
    if PickTreeExec(Telecharge)=true then
      if (Telecharge = 'DL') then
      begin
        GetPicture('http://www.ifrance.com/ricoland/Update%20Fields%20(FR-US).ifs', True);
      end else
      begin
        exit;
      end;
    end;
end;

//------------------------------------------------------------------------------
// TRADUIT LE CHAMPS DESCRIPTION
//------------------------------------------------------------------------------

procedure translateSynopsis();
var
   Adresse, Parametre, Description, Resultat, Line : String;
   BeginPos, EndPos : Integer;
begin
     if (NewField = '') then
     begin
          PickTreeClear;
          PickTreeAdd('SΘlectionner les langues source et cible :', '');
      PickTreeAdd('Du chinois simpl. vers l''anglais', 'zh_en');
      PickTreeAdd('Du chinois trad. vers l''anglais', 'zt_en');
      PickTreeAdd('De l''anglais vers le chinois simpl.', 'en_zh');
      PickTreeAdd('De l''anglais vers le chinois trad.', 'en_zt');
      PickTreeAdd('De l''anglais vers le hollandais', 'en_nl');
      PickTreeAdd('De l''anglais vers le franτais', 'en_fr');
      PickTreeAdd('De l''anglais vers l''allemand', 'en_de');
      PickTreeAdd('De l''anglais vers le grec', 'en_el');
      PickTreeAdd('De l''anglais vers l''italien', 'en_it');
      PickTreeAdd('De l''anglais vers le japonais', 'en_ja');
      PickTreeAdd('De l''anglais vers corΘen', 'en_ko');
      PickTreeAdd('De l''anglais vers le portugais', 'en_pt');
      PickTreeAdd('De l''anglais vers le russe', 'en_ru');
      PickTreeAdd('De l''anglais vers l''espagnol', 'en_es');
      PickTreeAdd('Du hollandais vers l''anglais', 'nl_en');
      PickTreeAdd('Du hollandais vers le franτais', 'nl_fr');
      PickTreeAdd('Du franτais vers le hollandais', 'fr_nl');
      PickTreeAdd('Du franτais vers l''anglais', 'fr_en');
      PickTreeAdd('Du franτais vers l''allemand', 'fr_de');
      PickTreeAdd('Du franτais vers le grec', 'fr_el');
      PickTreeAdd('Du franτais vers l''italien', 'fr_it');
      PickTreeAdd('Du franτais vers le portugais', 'fr_pt');
      PickTreeAdd('Du franτais vers l''espagnol', 'fr_es');
      PickTreeAdd('De l''allemand vers l''anglais', 'de_en');
      PickTreeAdd('De l''allemand vers le franτais', 'de_fr');
      PickTreeAdd('Du grec vers l''anglais', 'el_en');
      PickTreeAdd('Du grec vers le franτais', 'el_fr');
      PickTreeAdd('De l''italien vers l''anglais', 'it_en');
      PickTreeAdd('De l''italien vers le franτais', 'it_fr');
      PickTreeAdd('Du japonais vers l''anglais', 'ja_en');
      PickTreeAdd('Du corΘen vers l''anglais', 'ko_en');
      PickTreeAdd('Du portugais vers l''anglais', 'pt_en');
      PickTreeAdd('Du portugais vers le franτais', ' pt_fr');
      PickTreeAdd('Du russe vers l''anglais', 'ru_en');
      PickTreeAdd('De l''espagnol vers l''anglais', 'es_en');
      PickTreeAdd('De l''espagnol vers le franτais', 'es_fr');
      begin
        if PickTreeExec(NewField)=true then
              Description := GetField(fieldDescription);
              Description := StringReplace(Description , ' ', '+');
              Description := StringReplace(Description , #13#10, '+');
              Description := StringReplace(Description , '''', '+');
              Description := StringReplace(Description, 'Θ', 'e');
                 Description := StringReplace(Description, 'Φ', 'e');
          Description := StringReplace(Description, 'Ω', 'a');
          Description := StringReplace(Description, 'δ', 'a');
              Description := StringReplace(Description, 'α', 'a');
                 Description := StringReplace(Description, 'τ', 'c');
              Description := StringReplace(Description, '∙', 'u');
              Description := StringReplace(Description, '√', 'u');
              Description := StringReplace(Description, '⌠', 'o');
              (**'Θ', '%C3%A9' 'Φ', '%C3%A8' 'Ω', '%C3%AA' 'δ', '%C3%AB' 'α', '%C3%A0' 'τ', '%C3%A7' '∙', '%C3%B9' '√', '%C3%BB' '⌠', '%C3%B4'*)
          Adresse := URLEncode('http://babelfish.altavista.com/tr');
                Parametre := 'do it =done&intl=1&tt=urltext&trtext='+Description+'&lp='+NewField;
              Line := PostPage(Adresse,Parametre);
              BeginPos := Pos('<td bgcolor=white class=s><div style=padding:10px;>', Line);
              Delete(Line, 1, BeginPos+50);
          EndPos := Pos('</div></td>', Line);
          Resultat := Copy(Line, 1, EndPos-1 );
          Resultat := StringReplace(Resultat, #13#10, ' ');
          Resultat := StringReplace(Resultat, '', '⌠');
          Resultat := StringReplace(Resultat, '├⌐', 'Θ');
          Resultat := StringReplace(Resultat, '├¿', 'Φ');
          Resultat := StringReplace(Resultat, 'α½', 'δ');
          Resultat := StringReplace(Resultat, 'α¬', 'Ω');
          Resultat := StringReplace(Resultat, '├', 'α');
          Resultat := StringReplace(Resultat, 'αº', 'τ');
          Resultat := StringReplace(Resultat, 'α┤', '⌠');
          HTMLDecode(Resultat);
          HTMLRemoveTags(Resultat);
              SetField(fieldDescription, Resultat);
        end;
     end else
     begin
       Description := GetField(fieldDescription);
       Description := StringReplace(Description , ' ', '+');
       Description := StringReplace(Description , #13#10, '+');
       Description := StringReplace(Description , '''', '+');
       Description := StringReplace(Description, 'Θ', 'e');
       Description := StringReplace(Description, 'Φ', 'e');
       Description := StringReplace(Description, 'Ω', 'a');
       Description := StringReplace(Description, 'δ', 'a');
       Description := StringReplace(Description, 'α', 'a');
       Description := StringReplace(Description, 'τ', 'c');
       Description := StringReplace(Description, '∙', 'u');
       Description := StringReplace(Description, '√', 'u');
       Description := StringReplace(Description, '⌠', 'o');
       Adresse := URLEncode('http://babelfish.altavista.com/tr');
       Parametre := URLEncode('do it =done&intl=1&tt=urltext&trtext='+Description+'&lp='+NewField);
       Line := PostPage(Adresse,Parametre);
       BeginPos := Pos('<td bgcolor=white class=s><div style=padding:10px;>', Line);
       Delete(Line, 1, BeginPos+50);
       EndPos := Pos('</div></td>', Line);
       Resultat := Copy(Line, 1, EndPos-1 );
       Resultat := StringReplace(Resultat, #13#10, ' ');
       Resultat := StringReplace(Resultat, '', '⌠');
       Resultat := StringReplace(Resultat, '├⌐', 'Θ');
       Resultat := StringReplace(Resultat, '├¿', 'Φ');
       Resultat := StringReplace(Resultat, 'α½', 'δ');
       Resultat := StringReplace(Resultat, 'α¬', 'Ω');
       Resultat := StringReplace(Resultat, '├', 'α');
       Resultat := StringReplace(Resultat, 'αº', 'τ');
       Resultat := StringReplace(Resultat, 'α┤', '⌠');
       HTMLDecode(Resultat);
       HTMLRemoveTags(Resultat);
       SetField(fieldDescription, Resultat);
     end;
end;

//------------------------------------------------------------------------------
// PROGRAMME PRINCIPAL
//------------------------------------------------------------------------------

begin
  if CheckVersion(3,4,0) then
  begin
    if update = '' then
    begin
//vide la liste des films
    PickTreeClear;
    PickTreeAdd('Choisir le type de mise α jour (Choose which update) :', '');
    PickTreeAdd('Traduire la description avec Altavista (Translate Synopsis)', 'Translate');
    PickTreeAdd('Type de support (Media Type)', 'TypeSupport');
    PickTreeAdd('Pays (Country)', 'Pays');
    PickTreeAdd('Langue (Language)', 'Langue');
    PickTreeAdd('Sous-Titres (Subtitle)', 'SousTitre');
    PickTreeAdd('CatΘgorie (Category)', 'Categorie');
    PickTreeAdd('Origine (Source)', 'Origine');
    PickTreeAdd('Casse (UpFirstLetter)', 'Casse');
    PickTreeAdd('Copie si titre vide (Copy If Empty Title)', 'Copier');
    PickTreeAdd('Nettoie les titres traduits (Clean Translated Title)', 'CleanT');
    PickTreeAdd('Nettoie les titres originaux (Clean Original Title)', 'CleanO');
    PickTreeAdd('Coupe les titres traduits (Cut Translated Title)', 'CutT');
    PickTreeAdd('Coupe les titres originaux (Cut Original Title)', 'CutO');
    PickTreeAdd('DΘplace les commentaires dans la description (move Comments)', 'Move');
    PickTreeAdd(' ', '');
    PickTreeAdd('Verifier si vous avez la derniΦre version', 'version');
    begin
    if PickTreeExec(Update)=true then
      if (Update = 'Move') then
      begin
        moveComments();
      end else
      if (Update = 'Translate') then
      begin
        translateSynopsis();
      end else
      if (Update = 'version') then
      begin
        verifVersion();
      end else
      if (Update = 'CleanT') then
      begin
        cleanTitleT();
      end else
      if (Update = 'CleanO') then
      begin
        cleanTitleO();
      end else
      if (Update = 'CutT') then
      begin
        cutTitleT();
      end else
      if (Update = 'CutO') then
      begin
        cutTitleO();
      end else
      if (Update = 'Pays') then
      begin
        UpdateCountryField();
      end else
      if (Update = 'Origine') then
      begin
        UpdateSourceField();
      end else
      if (Update = 'Categorie') then
      begin
        UpdateCategorieField();
      end else
      if (Update = 'Copier') then
      begin
        CopyTitle();
      end else
      if (Update = 'Casse') then
      begin
        UpdateCasse();
      end else
      if (Update = 'TypeSupport') then
      begin
        UpdateMediaTypeField();
      end else
      if (Update = 'Langue') then
      begin
        UpdateLanguageField();
      end else
      if (Update = 'SousTitre') then
      begin
        UpdateSubtitlesField();
      end;
    end;
    end else
    begin
      if (Update = 'Move') then
      begin
        moveComments();
      end else
      if (Update = 'Translate') then
      begin
        translateSynopsis();
      end else
      if (Update = 'CleanT') then
      begin
        cleanTitleT();
      end else
      if (Update = 'CleanO') then
      begin
        cleanTitleO();
      end else
      if (Update = 'CutT') then
      begin
        cutTitleT();
      end else
      if (Update = 'CutO') then
      begin
        cutTitleO();
      end else
      if (Update = 'Casse') then
      begin
        UpdateCasse();
      end else
      if (Update = 'Copier') then
      begin
        CopyTitle();
      end else
      if (Update = 'Pays') then
      begin
        UpdateCountryField();
      end else
      if (Update = 'Origine') then
      begin
        UpdateSourceField();
      end else
      if (Update = 'Categorie') then
      begin
        UpdateCategorieField();
      end else
      if (Update = 'TypeSupport') then
      begin
        UpdateMediaTypeField();
      end else
      if (Update = 'Langue') then
      begin
        UpdateLanguageField();
      end else
      if (Update = 'SousTitre') then
      begin
        UpdateSubtitlesField();
      end;
    end;
  end else
    ShowMessage('Ce script requiert une version plus rΘcente de Ant Movie Catalog (au moins la version 3.4.0)');
end.